home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / pc / files / ant_nec / nec_in_c.tz / nec_in_c / NEC2 / s_cat.c < prev    next >
C/C++ Source or Header  |  1992-02-13  |  294b  |  24 lines
  1. #include "f2c.h"
  2.  
  3. VOID s_cat(lp, rpp, rnp, np, ll)
  4. char *lp, *rpp[];
  5. ftnlen rnp[], *np, ll;
  6. {
  7. int i, n, nc;
  8. char *rp;
  9.  
  10. n = *np;
  11. for(i = 0 ; i < n ; ++i)
  12.     {
  13.     nc = ll;
  14.     if(rnp[i] < nc)
  15.         nc = rnp[i];
  16.     ll -= nc;
  17.     rp = rpp[i];
  18.     while(--nc >= 0)
  19.         *lp++ = *rp++;
  20.     }
  21. while(--ll >= 0)
  22.     *lp++ = ' ';
  23. }
  24.